home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / c-script.exe / BibleBot / events.bbs < prev    next >
Encoding:
File List  |  1997-04-04  |  17.9 KB  |  568 lines
  1. ; The bible bot comes free with C-Script but if you would like to give a $5 contribution for further 
  2. ; development, I would greatly appreciate it. Make checks out to Ian Zink.
  3. ;
  4. ; Mail it to:
  5. ;
  6. ; Attn: Ian Zink
  7. ; 81 Brookstone Place
  8. ; Jackson, Tennessee 38305
  9. ;
  10. ; Thanks!!!
  11. ;
  12. +1:PROT:/ignore -au10 $nick 3
  13. #agreet on
  14. on 1:JOIN:#: {
  15.   notice $nick Welcome! I am a BibleBot by SethD and zforce! To use me type -[niv or kjv] [book] [verse] Example: -kjv John 3:16
  16.   if (%dccline == ON) notice $nick To enter my AWSOME DCC Room type -chat or /dcc chat $me
  17. }
  18. #AGREET end
  19. on 1:TEXT:-ping:*:/notice $nick <>PONG<>
  20. on 1:TEXT:-bible:#:/msg $chan I am a BibleBot that comes in C-Script, available at http://www.midtenn.net/~sdavis/c-script.htm
  21. on +1:TEXT:-help:*: {
  22.   msg $nick I am a BibleBot by SethD and zforce that comes in C-Script, available at http://www.midtenn.net/~sdavis/c-script.htm
  23.   msg $nick To use me type -[niv or kjv] [book] [verse] Example: -kjv John 3:16 OR -niv Isa 40:30-31
  24.   if (%dccline == ON) msg $nick to enter my DCC Room type /dcc chat $me
  25.   msg $nick Level 1 Commands: %CMNDS1
  26. }
  27. on 1:TEXT:-getkjv:*:/dcc send $nick $mircdirBibleBot\kjv\kjv.zip | /ignore -au10 $nick 3
  28. on 1:TEXT:-pie*:#:/describe $chan -------[}.......................[ $2 ]  | /describe $chan  --------------------[}..........[ $2 ]  |  /describe $chan -----------------------------------[splat!!!!]
  29. on 1:TEXT:-face:#:/msg $chan 2╢:15¼4■)
  30. on 1:TEXT:-chat:*: {
  31.   if [ % $+ [ [ $nick ] $+ on ] ] == YES {
  32.     notice $nick Your nickname is already logged in! You can't have two connections!
  33.   }
  34.   else {
  35.     dcc chat $nick
  36.   }
  37. }
  38. on 2:TEXT:-join*:*:/join $2 | /msg $nick Joining $2 | /ignore -au10 $nick 3
  39. on 2:TEXT:-leave:#:/part $chan $nick used the -leave command
  40. on 2:TEXT:-leave*:?:/part $2 $nick used the -leave command
  41. on 2:TEXT:-cycle:#:/part $chan | /timer 1 2 /join $chan
  42. on 2:TEXT:-cycle*:*:/part $2 | /timer 1 2 /join $2
  43. on +2:TEXT:-help:*: {
  44.   msg $nick I am a BibleBot by SethD and zforce that comes in C-Script, available at http://www.midtenn.net/~sdavis/c-script.htm
  45.   msg $nick To use me type -[niv or kjv] [book] [verse] Example: -kjv John 3:16 OR -niv Isa 40:30-31
  46.   if (%dccline == ON) msg $nick to enter my DCC Room type /dcc chat $me
  47.   msg $nick Level 2 Commands: %CMNDS1 %CMNDS2
  48. }
  49. on @3:TEXT:-op*:#:/mode $chan +oooo $2 $3 $4 $5 | /ignore -au10 $nick 3
  50. on 3:TEXT:-op*:?:/mode $2 +oooo $3 $4 $5 $6 | /ignore -au10 $nick 3
  51. on @3:TEXT:-deop*:#:/mode $chan -oooo $2 $3 $4 $5 | /ignore -au10 $nick 3
  52. on 3:TEXT:-deop*:?:/mode $2 -oooo $3 $4 $5 $6 | /ignore -au10 $nick 3
  53. on 3:TEXT:-users*:*:/notice $nick USERS: $dde mircbot USERS $2 ""
  54. on 3:TEXT:-nick*:*:/nick $2
  55. on +3:TEXT:-help:*: {
  56.   msg $nick I am a BibleBot by SethD and zforce that comes in C-Script, available at http://www.midtenn.net/~sdavis/c-script.htm
  57.   msg $nick To use me type -[niv or kjv] [book] [verse] Example: -kjv John 3:16 OR -niv Isa 40:30-31
  58.   if (%dccline == ON) msg $nick to enter my DCC Room type /dcc chat $me
  59.   msg $nick Level 3 Commands: %CMNDS1 %CMNDS2 %CMNDS3
  60. }
  61. on +5:TEXT:-kjvon:*:/enable #kjv | /notice $nick KJV has been turned ON
  62. on +5:TEXT:-kjvoff:*:/disable #kjv  | /notice $nick KJV has been turned OFF
  63. on +5:TEXT:-nivon:*:/enable #niv | /notice $nick NIV has been turned ON
  64. on +5:TEXT:-nivoff:*:/disable #niv  | /notice $nick NIV has been turned OFF
  65. on +5:TEXT:-die*:*:/amsg $nick used the DIE command! | /quit $2-
  66. on +5:TEXT:-add2*:*:/auser 2 $2 | /guser 2 $2 3 | /notice $nick Added $2 to Level 2 | /notice $2 You have been given level 2 access! For a list of commands type -help
  67. on +5:TEXT:-add3*:*:/auser 3 $2 | /guser 3 $2 3 | /notice $nick Added $2 to Level 3 | /notice $2 You have been given level 3 access! For a list of commands type -help
  68. on +5:TEXT:-add5*:*:/auser 5 $2 | /guser 5 $2 3 | /notice $nick Added $2 to Level 5 | /notice $2 You have been given level 5 access! For a list of commands type -help
  69. on +5:TEXT:-dccline:*:/enable #DCCline | /set %dccline ON | /notice $nick DCC Line has been ENABLED
  70. on +5:TEXT:-rdccline:*:/disable #DCCline | /set %dccline OFF | /notice $nick DCC Line has been DISABLED
  71. on +5:TEXT:-shoot:*:/enable #shoot | /notice $nick SHOOTLIST has been enabled
  72. on +5:TEXT:-rshoot:*:/disable #shoot | /notice $nick SHOOTLIST has been disabled
  73. on +5:TEXT:-ruser*:*:/ruser $2 | /ruser $2 3 | /notice $nick $2 Has been removed from my user list
  74. on +5:TEXT:-agreet:*:/enable #AGREET | /notice $nick Auto-Greet has been enabled!
  75. on +5:TEXT:-ragreet:*:/disable #AGREET | /notice $nick Auto-Greet has been disabled!
  76. on +5:TEXT:-help:*: {
  77.   msg $nick I am a BibleBot by SethD and zforce that comes in C-Script, available at http://www.midtenn.net/~sdavis/c-script.htm
  78.   msg $nick To use me type -[niv or kjv] [book] [verse] Example: -kjv John 3:16 OR -niv Isa 40:30-31
  79.   if (%dccline == ON) msg $nick to enter my DCC Room type /dcc chat $me
  80.   msg $nick Level 5 Commands: %CMNDS1 %CMNDS2 %CMNDS3 %CMNDS5
  81. }
  82. #kjv on
  83. on 1:TEXT:-kjv *:#: {
  84.   set %count 1
  85.   set %count2 0
  86.   set %book $2
  87.   set %count3 1
  88.   set %dash -
  89.   set %chapverse $3
  90.   set %file $read -s $+ $2 $mircdirBibleBot\bookname.txt
  91.   if %dash isin $3 { goto check }
  92.   else { goto singleverse }
  93.   :check
  94.   if : isin $left(%count,%chapverse) {
  95.     set %found $left(%count,%chapverse)
  96.     set %versemulti $remove(%chapverse,%found)
  97.     set %chap $remove(%found,:)
  98.     goto ultracheck
  99.   }
  100.   else {
  101.     inc %count
  102.     goto check
  103.   }
  104.   :ultracheck
  105.   if %dash isin $left(%count3,%versemulti) {
  106.     set %found $left(%count3,%versemulti)
  107.     set %multi $remove(%versemulti,%found)
  108.     set %verse $remove(%found,%dash)
  109.     goto bloop
  110.   }
  111.   else {
  112.     inc %count3
  113.     goto ultracheck
  114.   }
  115.   :singleverse
  116.   set %testing get single verse
  117.   msg $chan $read -s $+ %book $mircdirBibleBot\index.txt $3 $read -s $+ $3 $mircdirBibleBot\kjv\ $+ %file $+ .txt (KJV)
  118.   goto end
  119.   :bloop
  120.   %multi = %multi - %verse
  121.   if %multi >= 3 {
  122.     set %multi 3
  123.     goto loop
  124.   }
  125.   else { goto loop }
  126.   :loop
  127.   if %count2 <= %multi {
  128.     msg $chan $read -s $+ %book $mircdirBibleBot\index.txt %chap $+ :  $+ %verse $read -s $+ %chap $+ : $+ %verse $mircdirBibleBot\kjv\ $+ %file $+ .txt (KJV)
  129.     inc %verse
  130.     inc %count2
  131.     goto loop
  132.   }
  133.   else { goto end }
  134.   :end
  135.   halt
  136. }
  137. on 1:TEXT:-kjv *:?: {
  138.   set %count 1
  139.   set %count2 0
  140.   set %book $2
  141.   set %count3 1
  142.   set %dash -
  143.   set %chapverse $3
  144.   set %file $read -s $+ $2 $mircdirBibleBot\bookname.txt
  145.   if %dash isin $3 { goto check }
  146.   else { goto singleverse }
  147.   :check
  148.   if : isin $left(%count,%chapverse) {
  149.     set %found $left(%count,%chapverse)
  150.     set %versemulti $remove(%chapverse,%found)
  151.     set %chap $remove(%found,:)
  152.     goto ultracheck
  153.   }
  154.   else {
  155.     inc %count
  156.     goto check
  157.   }
  158.   :ultracheck
  159.   if %dash isin $left(%count3,%versemulti) {
  160.     set %found $left(%count3,%versemulti)
  161.     set %multi $remove(%versemulti,%found)
  162.     set %verse $remove(%found,%dash)
  163.     goto bloop
  164.   }
  165.   else {
  166.     inc %count3
  167.     goto ultracheck
  168.   }
  169.   :singleverse
  170.   set %testing get single verse
  171.   msg $nick $read -s $+ %book $mircdirBibleBot\index.txt $3 $read -s $+ $3 $mircdirBibleBot\kjv\ $+ %file $+ .txt (KJV)
  172.   goto end
  173.   :bloop
  174.   %multi = %multi - %verse
  175.   if %multi >= 3 {
  176.     set %multi 3
  177.     goto loop
  178.   }
  179.   else { goto loop }
  180.   :loop
  181.   if %count2 <= %multi {
  182.     msg $nick $read -s $+ %book $mircdirBibleBot\index.txt %chap $+ :  $+ %verse $read -s $+ %chap $+ : $+ %verse $mircdirBibleBot\kjv\ $+ %file $+ .txt (KJV)
  183.     inc %verse
  184.     inc %count2
  185.     goto loop
  186.   }
  187.   else { goto end }
  188.   :end
  189.   halt
  190. }
  191. on 1:CHAT:-kjv *: {
  192.   set %cbnick 1
  193.   set %count 1
  194.   set %count2 0
  195.   set %book $2
  196.   set %count3 1
  197.   set %dash -
  198.   set %chapverse $3
  199.   set %file $read -s $+ $2 $mircdirBibleBot\bookname.txt
  200.   if %dash isin $3 { goto check }
  201.   else { goto singleverse }
  202.   :check
  203.   if : isin $left(%count,%chapverse) {
  204.     set %found $left(%count,%chapverse)
  205.     set %versemulti $remove(%chapverse,%found)
  206.     set %chap $remove(%found,:)
  207.     goto ultracheck
  208.   }
  209.   else {
  210.     inc %count
  211.     goto check
  212.   }
  213.   :ultracheck
  214.   if %dash isin $left(%count3,%versemulti) {
  215.     set %found $left(%count3,%versemulti)
  216.     set %multi $remove(%versemulti,%found)
  217.     set %verse $remove(%found,%dash)
  218.     goto bloop
  219.   }
  220.   else {
  221.     inc %count3
  222.     goto ultracheck
  223.   }
  224.   :singleverse
  225.   set %testing get single verse
  226.   if $chat(%cbnick) == $null goto end
  227.   else { msg = $+ $chat(%cbnick) $read -s $+ %book $mircdirBibleBot\index.txt $3 $read -s $+ $3 $mircdirBibleBot\kjv\ $+ %file $+ .txt (KJV) }
  228.   inc %cbnick 1
  229.   goto singleverse
  230.   :bloop
  231.   %multi = %multi - %verse
  232.   if %multi >= 3 {
  233.     set %multi 3
  234.     goto loop
  235.   }
  236.   else { goto loop }
  237.   :loop
  238.   if %count2 <= %multi {
  239.     set %cbnick 1
  240.     :strt
  241.     if $chat(%cbnick) == $null goto strt1
  242.     else { msg = $+ $chat(%cbnick) $read -s $+ %book $mircdirBibleBot\index.txt %chap $+ :  $+ %verse $read -s $+ %chap $+ : $+ %verse $mircdirBibleBot\kjv\ $+ %file $+ .txt (KJV) }
  243.     inc %cbnick 1
  244.     goto strt
  245.     :strt1
  246.     inc %verse
  247.     inc %count2
  248.     goto loop
  249.   }
  250.   else { goto end }
  251.   :end
  252.   halt
  253. }
  254. #kjv end
  255. #niv on
  256. on 1:TEXT:-niv *:#: {
  257.   set %count 1
  258.   set %count2 0
  259.   set %book $2
  260.   set %count3 1
  261.   set %dash -
  262.   set %chapverse $3
  263.   set %file $read -s $+ $2 $mircdirBibleBot\bkname.txt
  264.   if %dash isin $3 { goto check }
  265.   else { goto singleverse }
  266.   :check
  267.   if : isin $left(%count,%chapverse) {
  268.     set %found $left(%count,%chapverse)
  269.     set %versemulti $remove(%chapverse,%found)
  270.     set %chap $remove(%found,:)
  271.     goto ultracheck
  272.   }
  273.   else {
  274.     inc %count
  275.     goto check
  276.   }
  277.   :ultracheck
  278.   if %dash isin $left(%count3,%versemulti) {
  279.     set %found $left(%count3,%versemulti)
  280.     set %multi $remove(%versemulti,%found)
  281.     set %verse $remove(%found,%dash)
  282.     goto bloop
  283.   }
  284.   else {
  285.     inc %count3
  286.     goto ultracheck
  287.   }
  288.   :singleverse
  289.   msg $chan $read -s $+ %file $+ : $+ $3 $mircdirBibleBot\niv\ $+ %file $+ .txt (NIV)
  290.   goto end
  291.   :bloop
  292.   %multi = %multi - %verse
  293.   if %multi >= 3 {
  294.     set %multi 3
  295.     goto loop
  296.   }
  297.   else { goto loop }
  298.   :loop
  299.   if %count2 <= %multi {
  300.     msg $chan $read -s $+ %file $+ : $+ %chap $+ : $+ %verse $mircdirBibleBot\niv\ $+ %file  $+ .txt (NIV)
  301.     inc %verse
  302.     inc %count2
  303.     goto loop
  304.   }
  305.   else { goto end }
  306.   :end
  307.   halt
  308. }
  309. on 1:TEXT:-niv *:?: {
  310.   set %count 1
  311.   set %count2 0
  312.   set %book $2
  313.   set %count3 1
  314.   set %dash -
  315.   set %chapverse $3
  316.   set %file $read -s $+ $2 $mircdirBibleBot\bkname.txt
  317.   if %dash isin $3 { goto check }
  318.   else { goto singleverse }
  319.   :check
  320.   if : isin $left(%count,%chapverse) {
  321.     set %found $left(%count,%chapverse)
  322.     set %versemulti $remove(%chapverse,%found)
  323.     set %chap $remove(%found,:)
  324.     goto ultracheck
  325.   }
  326.   else {
  327.     inc %count
  328.     goto check
  329.   }
  330.   :ultracheck
  331.   if %dash isin $left(%count3,%versemulti) {
  332.     set %found $left(%count3,%versemulti)
  333.     set %multi $remove(%versemulti,%found)
  334.     set %verse $remove(%found,%dash)
  335.     goto bloop
  336.   }
  337.   else {
  338.     inc %count3
  339.     goto ultracheck
  340.   }
  341.   :singleverse
  342.   msg $nick $read -s $+ %file $+ : $+ $3 $mircdirBibleBot\niv\ $+ %file $+ .txt (NIV)
  343.   goto end
  344.   :bloop
  345.   %multi = %multi - %verse
  346.   if %multi >= 3 {
  347.     set %multi 3
  348.     goto loop
  349.   }
  350.   else { goto loop }
  351.   :loop
  352.   if %count2 <= %multi {
  353.     msg $nick $read -s $+ %file $+ : $+ %chap $+ : $+ %verse $mircdirBibleBot\niv\ $+ %file  $+ .txt (NIV)
  354.     inc %verse
  355.     inc %count2
  356.     goto loop
  357.   }
  358.   else { goto end }
  359.   :end
  360.   halt
  361. }
  362. on 1:CHAT:-niv *: {
  363.   set %cbnick 1
  364.   set %count 1
  365.   set %count2 0
  366.   set %book $2
  367.   set %count3 1
  368.   set %dash -
  369.   set %chapverse $3
  370.   set %file $read -s $+ $2 $mircdirBibleBot\bkname.txt
  371.   if %dash isin $3 { goto check }
  372.   else { goto singleverse }
  373.   :check
  374.   if : isin $left(%count,%chapverse) {
  375.     set %found $left(%count,%chapverse)
  376.     set %versemulti $remove(%chapverse,%found)
  377.     set %chap $remove(%found,:)
  378.     goto ultracheck
  379.   }
  380.   else {
  381.     inc %count
  382.     goto check
  383.   }
  384.   :ultracheck
  385.   if %dash isin $left(%count3,%versemulti) {
  386.     set %found $left(%count3,%versemulti)
  387.     set %multi $remove(%versemulti,%found)
  388.     set %verse $remove(%found,%dash)
  389.     goto bloop
  390.   }
  391.   else {
  392.     inc %count3
  393.     goto ultracheck
  394.   }
  395.   :singleverse
  396.   if $chat(%cbnick) == $null goto end
  397.   else { msg = $+ $chat(%cbnick) $read -s $+ %file $+ : $+ $3 $mircdirBibleBot\niv\ $+ %file $+ .txt (NIV)}
  398.   inc %cbnick 1
  399.   goto singleverse
  400.   :bloop
  401.   %multi = %multi - %verse
  402.   if %multi >= 3 {
  403.     set %multi 3
  404.     goto loop
  405.   }
  406.   else { goto loop }
  407.   :loop
  408.   if %count2 <= %multi {
  409.     set %cbnick 1
  410.     :strt
  411.     if $chat(%cbnick) == $null goto strt1
  412.     else { msg = $+ $chat(%cbnick) $read -s $+ %file $+ : $+ %chap $+ : $+ %verse $mircdirBibleBot\niv\ $+ %file  $+ .txt (NIV) }
  413.     inc %cbnick 1
  414.     goto strt
  415.     :strt1
  416.     inc %verse
  417.     inc %count2
  418.     goto loop
  419.   }
  420.   else { goto end }
  421.   :end
  422.   halt
  423. }
  424. #niv end
  425. #dccline on
  426. on 1:CHATOPEN: {
  427.   /whois $nick
  428.   set [ % $+ [ [ $nick ] $+ on ] ] YES
  429.   set %chtnk = $+ $nick
  430.   /relay ***Joins: $nick ( $address($nick,3) )
  431.   msg %chtnk Welcome to my DCC Chat room!
  432.   msg %chtnk There are currently  $+ $chat(0) $+  People in my DCC room!
  433.   msg %chtnk ABSOLUTELY NO CUSSING, FLOODING, OR OTHER ANNOYING BEHAVIOR ALLOWED!!!!!!
  434.   msg %chtnk Type -numppl to get the number of logged-in users or -lusers to get a list of logged-in users!
  435.   if ($chat(0) == 1) { /msg %chtnk ***You are the ONLY user in the DCC Room! }
  436. }
  437. on 1:CHATCLOSE: { 
  438.   unset [ % $+ [ [ $nick ] $+ on ] ]
  439.   /relay ***Parts: $nick ( $address($nick,3) )
  440.   notice $nick Thank you for visiting my DCC Chat room!
  441. }
  442. on 1:CHAT:*fuck*:/unset [ % $+ [ [ $nick ] $+ on ] ] | /close -c $nick | /auser =8 $nick | /guser =8 $nick 3 | /ignore -a $nick 3 | /relay $nick was kicked off the DCC Chat Room for Cussing!
  443. on 1:CHAT:*asshole*:/unset [ % $+ [ [ $nick ] $+ on ] ] | /close -c $nick | /auser =8 $nick | /guser =8 $nick 3 | /ignore -a $nick 3 | /relay $nick was kicked off the DCC Chat Room for Cussing!
  444. on 1:CHAT:*shit*:/unset [ % $+ [ [ $nick ] $+ on ] ] | /close -c $nick | /auser =8 $nick | /guser =8 $nick 3 | /ignore -a $nick 3 | /relay $nick was kicked off the DCC Chat Room for Cussing!
  445. on +1:CHAT:-help:/msg = $+ $nick Level 1 DCC Commands: %LVL1DCC
  446. on +2:CHAT:-help:/msg = $+ $nick Level 2 DCC Commands: %LVL1DCC %LVL2DCC
  447. on +3:CHAT:-help:/msg = $+ $nick Level 3 DCC Commands: %LVL1DCC %LVL2DCC %LVL3DCC
  448. on +5:CHAT:-help:/msg = $+ $nick Level 5 DCC Commands: %LVL1DCC %LVL2DCC %LVL3DCC %LVL5DCC
  449. on 2:CHAT:-kick*: {
  450.   set %ckn 1
  451.   if ($level($2) > $level($nick)) { 
  452.     msg = $+ $nick You don't have access to kick that person!
  453.     goto done
  454.   }
  455.   else { close -c $2 | unset [ % $+ [ [ $nick ] $+ on ] ] | notice $nick $2 was kicked from the DCC Room | notice $2 You were kicked from the DCC room by $nick ----> $3- }
  456.   :restart
  457.   if $chat(%ckn) == $null goto done
  458.   else { msg = $+ $chat(%ckn) $2 Was kicked by $nick $+ : $3- }
  459.   goto next
  460.   :next
  461.   /inc %ckn
  462.   goto restart
  463.   :done
  464.   set %ckn 1
  465. }
  466. on 2:CHAT:-bankick*: {
  467.   set %cbkn 1
  468.   if ($level($2) > $level($nick)) { 
  469.     msg = $+ $nick You don't have access to ban-kick that person!
  470.     goto done
  471.   }
  472.   else { close -c $2 | unset [ % $+ [ [ $nick ] $+ on ] ] | ignore -t $2 3 | notice $nick $2 was ban-kicked from the DCC Room | notice $2 You were ban-kicked from the DCC room by $nick ----> $3- }
  473.   :restart
  474.   if $chat(%cbkn) == $null goto done
  475.   else { msg = $+ $chat(%cbkn) $2 Was ban-kicked by $nick $+ : $3- }
  476.   goto next
  477.   :next
  478.   /inc %cbkn
  479.   goto restart
  480.   :done
  481.   set %cbkn 1
  482. }
  483. on 2:CHAT:-unban*: {
  484.   set %dccunban 1
  485.   ignore -r $2 3
  486.   :restart
  487.   if $chat(%dccunban) == $null goto done
  488.   else { msg = $+ $chat(%dccunban) $2 Was UnBanned by $nick }
  489.   goto next
  490.   :next
  491.   /inc %dccunban
  492.   goto restart
  493.   :done
  494.   set %dccunban 1
  495. }
  496. on 3:CHAT:-op*:/auser 2 $2 | /guser 2 $2 3 | /notice $2 You have been given level 2 access! For a list of commands type -help | /notice $nick $2 has been added to level 2.
  497. on 3:CHAT:-relay*:/relay $2- Relay from $nick $+ 
  498. on 5:CHAT:-shoot*: {
  499.   set %sbkn 1
  500.   if ($level($2) > $level($nick)) { 
  501.     msg = $+ $nick You don't have access to shootlist that person!
  502.     goto done
  503.   }
  504.   else { close -c $2  | unset [ % $+ [ [ $nick ] $+ on ] ] | auser =9 $2 | guser =9 $2 3 | ignore -a $2 3 | notice $2 SHOOTLISTED by $nick $+ : $3- | notice $nick $2 Has been SHOOTLISTED }
  505.   :restart
  506.   if $chat(%sbkn) == $null goto done
  507.   else { msg = $+ $chat(%sbkn) $2 Was kicked by $nick $+ : $3- }
  508.   goto next
  509.   :next
  510.   /inc %sbkn
  511.   goto restart
  512.   :done
  513.   set %sbkn 1
  514. }
  515. on 5:CHAT:-unshoot*: {
  516.   set %dccuns 1
  517.   ignore -r $2 3
  518.   ruser =9 $2 3
  519.   :restart
  520.   if $chat(%dccuns) == $null goto done
  521.   else { msg = $+ $chat(%dccuns) $2 Was UnShootListed by $nick }
  522.   goto next
  523.   :next
  524.   /inc %dccuns
  525.   goto restart
  526.   :done
  527.   set %dccuns 1
  528. }
  529. on 1:CHAT:-numppl: {
  530.   msg = $+ $nick Number of users:  $+ $chat(0) $+ 
  531.   if $chat(0) == 1 { /msg = $+ $nick ***You are the ONLY user in the DCC Room! }
  532. }
  533. on 1:CHAT:-lusers: {
  534.   /msg = $+ $nick Listing users...
  535.   set %lcu 1
  536.   :main
  537.   if $chat(%lcu) == $null goto end
  538.   /msg = $+ $nick User %lcu $+ :  $+ $chat(%lcu) $+  ( $address($chat(%lcu),3) )
  539.   goto next
  540.   :next
  541.   /inc %lcu
  542.   goto main
  543.   :end
  544.   set %lcu 1
  545.   /msg = $+ $nick End of list
  546.   if $chat(0) == 1 { /msg = $+ $nick ***You are the ONLY user in the DCC Room! }
  547. }
  548. on 1:CHAT:*: { 
  549.   set %chat 1
  550.   :main
  551.   if $chat(%chat) == $null goto end
  552.   elseif $chat(%chat) == $nick goto next
  553.   elseif SOUND isin $1 { /sound $chat(%chat) $2 From $nick $+  $3- }
  554.   elseif ACTION isin $1 { /msg = $+ $chat(%chat) * $nick $2- ACTION }
  555.   else { /msg = $+ $chat(%chat) < $+ $nick $+ > $1- }
  556.   goto next
  557.   :next
  558.   /inc %chat 1 
  559.   goto main 
  560.   :end
  561.   set %chat 1
  562. }
  563. #DCCline end
  564. #shoot on
  565. =9:*:/ignore -a $nick 3
  566. #shoot end
  567. on 1:TEXT:-*:*:/notice $nick Access Denied or Unknown Command!!! | /ignore -au10 $nick 3
  568.